Dream Season 1996 - Flor…a's National Championship/Florida's National Championship on CD-ROM - Dream Season 1996.iso/mac/Dream Season '96/Dream Season '96.DXR/00002_DB scripts.ls

Text File | 1997-03-19 | 15.2 KB | 456 lines

on MediaIconRollover
  global gRecord, gPREVIEWSPRITE, gPREVIEWSPRITELAST, gPreviewNum, gMEDIAICONCAPTIONSPRITE, gVIDEOSPRITE, gGAMESSPRITE
  set mousePosH to the mouseH
  set mousePosV to the mouseV
  set n to -1
  repeat with i = gPREVIEWSPRITE to gPREVIEWSPRITELAST
    if rollOver(i) then
      if the visible of sprite i then
        set n to i
        exit repeat
      end if
    end if
  end repeat
  if n > 1 then
    repeat with i = gVIDEOSPRITE to gGAMESSPRITE + 1
      if rollOver(i) then
        if the visible of sprite i then
          set n to -1
          exit repeat
        end if
      end if
    end repeat
  end if
  if n > 1 then
    set n to n - gPREVIEWSPRITE
    set s to line n + 4 of gRecord
    if the number of items in s > 1 then
      delete item 1 of s
      set the itemDelimiter to "~"
      set s to item 1 of s
      set the itemDelimiter to ","
      if (the text of cast "MediaIconCaption" = s) and the visible of sprite gMEDIAICONCAPTIONSPRITE then
        exit
      end if
      puppetSprite(gMEDIAICONCAPTIONSPRITE, 1)
      set the text of cast "MediaIconCaption" to " "
      set w to the width of sprite gMEDIAICONCAPTIONSPRITE
      set the locV of sprite gMEDIAICONCAPTIONSPRITE to mousePosV
      set the locH of sprite gMEDIAICONCAPTIONSPRITE to mousePosH - (w / 2)
      set the visible of sprite gMEDIAICONCAPTIONSPRITE to 1
      updateStage()
      set the text of cast "MediaIconCaption" to s
    else
      if the visible of sprite gMEDIAICONCAPTIONSPRITE then
        set the visible of sprite gMEDIAICONCAPTIONSPRITE to 0
      end if
    end if
  else
    if n = the number of cast "MediaIconCaption" then
      exit
    end if
    if the visible of sprite gMEDIAICONCAPTIONSPRITE then
      set the visible of sprite gMEDIAICONCAPTIONSPRITE to 0
    end if
  end if
end

on LoadMedia n
  global gTEXTSPRITE, gSTATSSPRITE, gROSTERSPRITE, gRECORDSSPRITE, gGAMESSPRITE, gPICTSPRITE, gVIDEOSPRITE, gAUDIOSPRITE, gRecord, gPREVIEWSPRITE, gLastMedia, gFutureRecordNum, gMEDIAICONCAPTIONSPRITE, gMEDIACAPTIONSPRITE
  cursor(4)
  if the visible of sprite (gVIDEOSPRITE + 1) then
    set the movieRate of sprite (gVIDEOSPRITE + 1) to 0
  end if
  if the visible of sprite (gAUDIOSPRITE + 1) then
    set the movieRate of sprite (gAUDIOSPRITE + 1) to 0
  end if
  set the visible of sprite gVIDEOSPRITE to 0
  set the visible of sprite (gVIDEOSPRITE + 1) to 0
  set the visible of sprite gPICTSPRITE to 0
  set the visible of sprite (gPICTSPRITE + 1) to 0
  set the visible of sprite gAUDIOSPRITE to 0
  set the visible of sprite (gAUDIOSPRITE + 1) to 0
  set the visible of sprite gTEXTSPRITE to 0
  set the visible of sprite (gTEXTSPRITE + 1) to 0
  set the visible of sprite gSTATSSPRITE to 0
  set the visible of sprite (gSTATSSPRITE + 1) to 0
  set the visible of sprite gROSTERSPRITE to 0
  set the visible of sprite (gROSTERSPRITE + 1) to 0
  set the visible of sprite gRECORDSSPRITE to 0
  set the visible of sprite (gRECORDSSPRITE + 1) to 0
  set the visible of sprite gGAMESSPRITE to 0
  set the visible of sprite (gGAMESSPRITE + 1) to 0
  set the visible of sprite gMEDIAICONCAPTIONSPRITE to 0
  set the visible of sprite gMEDIACAPTIONSPRITE to 0
  if gLastMedia > 0 then
    set the visible of sprite (gPREVIEWSPRITE + gLastMedia - 1) to 1
  end if
  if n = 0 then
    cursor(-1)
    exit
  end if
  set s to line n + 3 of gRecord
  set the itemDelimiter to ":"
  set MediaType to item 1 of s
  delete item 1 of s
  set the itemDelimiter to ","
  set i to n - 1
  set MediaSprite to 0
  if MediaType = "Text" then
    set FileObj to FileIO(mnew, "read", MakePath(item 1 of s))
    if objectp(FileObj) then
      set data to FileObj(mReadFile)
      FileObj(mdispose)
      if data <> EMPTY then
        set the text of cast "MediaText" to data
        set MediaSprite to gTEXTSPRITE
      end if
    end if
  else
    if MediaType = "Stats" then
      set FileObj to FileIO(mnew, "read", MakePath(item 1 of s))
      if objectp(FileObj) then
        set data to FileObj(mReadFile)
        FileObj(mdispose)
        if data <> EMPTY then
          set the text of cast "MediaStats" to data
          set OK to 1
          repeat with i = 1 to the number of lines in data
            if (i mod 5) = 1 then
              if the number of chars in line i of data > 76 then
                set OK to 0
                exit repeat
              end if
            end if
          end repeat
          if OK then
            set the textSize of field "MediaStats" to 10
          else
            set the textSize of field "MediaStats" to 9
          end if
          set MediaSprite to gSTATSSPRITE
        end if
      end if
    else
      if MediaType = "Roster" then
        set FileObj to FileIO(mnew, "read", MakePath(item 1 of s))
        if objectp(FileObj) then
          set data to FileObj(mReadFile)
          FileObj(mdispose)
          if data <> EMPTY then
            set the text of cast "MediaRoster" to data
            set MediaSprite to gROSTERSPRITE
          end if
        end if
      else
        if (MediaType = "Records") or (MediaType = "Bowl") then
          set FileObj to FileIO(mnew, "read", MakePath(item 1 of s))
          if objectp(FileObj) then
            set data to FileObj(mReadFile)
            FileObj(mdispose)
            if data <> EMPTY then
              set the text of cast "MediaRecords" to data
              set MediaSprite to gRECORDSSPRITE
            end if
          end if
        else
          if MediaType = "Games" then
            set FileObj to FileIO(mnew, "read", MakePath(item 1 of s))
            if objectp(FileObj) then
              set data to FileObj(mReadFile)
              FileObj(mdispose)
              if data <> EMPTY then
                delete line 1 of data
                repeat with i = 1 to the number of lines in data
                  set L to line i of data
                  set the itemDelimiter to ":"
                  set L to RPad(item 1 of L, 5) & " " & LPad(item 4 of L, 17) & RPad(word 1 of item 2 of L, 4) & RPad(item 3 of L, 17)
                  set the itemDelimiter to ","
                  put L into line i of data
                end repeat
                set the text of cast "MediaGames" to data
                set MediaSprite to gGAMESSPRITE
              end if
            end if
          else
            if MediaType = "Pict" then
              set fName to MakePath(item 1 of s)
              set the fileName of cast the number of cast "MediaPicture" to fName
              if the fileName of cast the number of cast "MediaPicture" = fName then
                set MediaSprite to gPICTSPRITE
                puppetSprite(gPICTSPRITE + 1, 1)
                puppetSprite(gPICTSPRITE, 1)
                preLoadCast("MediaPicture")
                set w to the width of cast "MediaPicture" / 2
                set h to the height of cast "MediaPicture" / 2
                spriteBox(gPICTSPRITE + 1, 320 - w, 170 - h, 320 + w, 170 + h)
                updateStage()
              end if
            else
              if MediaType = "Video" then
                set fName to MakePath(item 1 of s)
                if the fileName of cast the number of cast "MediaVideo" <> fName then
                  set the fileName of cast the number of cast "MediaVideo" to fName
                end if
                if the fileName of cast the number of cast "MediaVideo" = fName then
                  set MediaSprite to gVIDEOSPRITE
                end if
              else
                if MediaType = "Audio" then
                  set fName to MakePath(item 1 of s)
                  if the fileName of cast the number of cast "MediaAudio" <> fName then
                    set the fileName of cast the number of cast "MediaAudio" to fName
                  end if
                  if the fileName of cast the number of cast "MediaAudio" = fName then
                    set MediaSprite to gAUDIOSPRITE
                  end if
                else
                  if MediaType = "LoadRecord" then
                    delete item 1 of s
                    set the itemDelimiter to "~"
                    set s to item 2 of s
                    set the itemDelimiter to ","
                    set gFutureRecordNum to integer(s)
                    go(marker(1))
                  else
                    if MediaType = "Goto" then
                      delete item 1 of s
                      set the itemDelimiter to "~"
                      set s to item 2 of s
                      set the itemDelimiter to ","
                      go(item 1 of s)
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if MediaSprite > 0 then
    set the visible of sprite (gPREVIEWSPRITE + n - 1) to 0
    set the visible of sprite MediaSprite to 1
    set the visible of sprite (MediaSprite + 1) to 1
    updateStage()
    if the number of items in s > 1 then
      puppetSprite(gMEDIACAPTIONSPRITE, 1)
      set the text of cast "MediaCaption" to " "
      set i to 5
      if MediaType = "Roster" then
        set i to -100
      else
        if MediaType = "Pict" then
          set i to 180 + h - 40
        else
          if MediaType = "Video" then
            set i to the bottom of sprite MediaSprite - 1
          else
            if MediaType = "Audio" then
              set i to the bottom of sprite MediaSprite - 20
            else
              if MediaType = "Stats" then
                set i to 50
              end if
            end if
          end if
        end if
      end if
      set the locV of sprite gMEDIACAPTIONSPRITE to i
      set the visible of sprite gMEDIACAPTIONSPRITE to 1
      updateStage()
      set the text of cast "MediaCaption" to item 2 of s
    end if
    set gLastMedia to n
    if (MediaType = "Video") or (MediaType = "Audio") then
      set the movieTime of sprite (MediaSprite + 1) to 0
      set the movieRate of sprite (MediaSprite + 1) to 1
    end if
  end if
  cursor(-1)
end

on HideMedia
  global gTEXTSPRITE, gSTATSSPRITE, gROSTERSPRITE, gRECORDSSPRITE, gGAMESSPRITE, gPICTSPRITE, gVIDEOSPRITE, gAUDIOSPRITE, gMEDIACAPTIONSPRITE
  set the visible of sprite gVIDEOSPRITE to 0
  set the visible of sprite (gVIDEOSPRITE + 1) to 0
  set the visible of sprite gPICTSPRITE to 0
  set the visible of sprite (gPICTSPRITE + 1) to 0
  set the visible of sprite gAUDIOSPRITE to 0
  set the visible of sprite (gAUDIOSPRITE + 1) to 0
  set the visible of sprite gTEXTSPRITE to 0
  set the visible of sprite (gTEXTSPRITE + 1) to 0
  set the visible of sprite gSTATSSPRITE to 0
  set the visible of sprite (gSTATSSPRITE + 1) to 0
  set the visible of sprite gROSTERSPRITE to 0
  set the visible of sprite (gROSTERSPRITE + 1) to 0
  set the visible of sprite gRECORDSSPRITE to 0
  set the visible of sprite (gRECORDSSPRITE + 1) to 0
  set the visible of sprite gGAMESSPRITE to 0
  set the visible of sprite (gGAMESSPRITE + 1) to 0
  set the visible of sprite gMEDIACAPTIONSPRITE to 0
end

on LoadList path
  global gList, gListIndex, gListPath
  set gListPath to path
  set fName to MakePath(path & "LIST.TXT")
  set FileObj to FileIO(mnew, "read", fName)
  if objectp(FileObj) then
    set gList to FileObj(mReadFile)
    FileObj(mdispose)
  end if
  set fName to MakePath(path & "LIST.NDX")
  set FileObj to FileIO(mnew, "read", fName)
  if objectp(FileObj) then
    set gListIndex to FileObj(mReadFile)
    FileObj(mdispose)
  end if
end

on LoadRecord n
  global gList, gListIndex, gListPath, gRecord, gCurrentRecord, gPreviewNum, gLastMedia
  set gCurrentRecord to n
  set fName to string(line n of gListIndex)
  repeat while the number of chars in fName < 3
    set fName to "0" & fName
  end repeat
  set subDir to char 1 to 2 of fName
  set fName to MakePath(gListPath & subDir & ":" & fName & ".TXT")
  set FileObj to FileIO(mnew, "read", fName)
  if objectp(FileObj) then
    set gRecord to FileObj(mReadFile)
    FileObj(mdispose)
    set s to line 1 of gRecord
    if s = EMPTY then
      set s to " "
    end if
    set the text of cast "Caption1" to s
    set s to line 2 of gRecord
    if s = EMPTY then
      set s to " "
    end if
    set the text of cast "Caption2" to s
    set s to line 3 of gRecord
    if s = EMPTY then
      set s to " "
    end if
    set the text of cast "Caption3" to s
  end if
  set gPreviewNum to 0
  set gLastMedia to 0
end

on HideRecordPreviews
  global gPREVIEWSPRITE, gPREVIEWSPRITELAST, gMEDIAICONCAPTIONSPRITE
  repeat with i = gPREVIEWSPRITE to gPREVIEWSPRITELAST
    set the visible of sprite i to 0
  end repeat
  set the visible of sprite gMEDIAICONCAPTIONSPRITE to 0
end

on ShowRecordPreviews
  global gPREVIEWSPRITE, gPREVIEWSPRITELAST, gMEDIAICONCAPTIONSPRITE
  repeat with i = gPREVIEWSPRITE to gPREVIEWSPRITELAST
    set the visible of sprite i to 1
  end repeat
  set the visible of sprite gMEDIAICONCAPTIONSPRITE to 1
end

on LoadRecordPreviews
  global gRecord, gLastMedia, gPREVIEWSPRITE, gPREVIEWSPRITELAST, gPreviewNum, gVIDEOSPRITE, gAUDIOSPRITE
  if gPreviewNum > (the number of lines in gRecord - 4) then
    return 0
  end if
  if gPreviewNum > (gPREVIEWSPRITELAST - gPREVIEWSPRITE) then
    return 0
  end if
  set i to gPreviewNum
  set n to the number of cast "Preview1"
  set s to line i + 4 of gRecord
  set the itemDelimiter to ":"
  set MediaType to item 1 of s
  delete item 1 of s
  set the itemDelimiter to ","
  if (MediaType = "Pict") or (MediaType = "Video") or (MediaType = "LoadRecord") or (MediaType = "Goto") then
    set s to item 1 of s
    set the itemDelimiter to "."
    put "PRE" into item 2 of s
    set the itemDelimiter to ","
    set fName to MakePath(s)
  else
    if MediaType = "Text" then
      set fName to MakePath("ICONS:TEXT:TEXT" & i mod 5 & ".PRE")
    else
      if MediaType = "Stats" then
        set fName to MakePath("ICONS:STATS:STATS" & i mod 5 & ".PRE")
      else
        if MediaType = "Audio" then
          set fName to MakePath("ICONS:AUDIO:AUDIO" & i mod 5 & ".PRE")
        else
          if MediaType = "Bowl" then
            set fName to MakePath("ICONS:BOWL:BOWL" & i mod 5 & ".PRE")
          else
            if MediaType = "Records" then
              set fName to MakePath("ICONS:RECORDS:RECORDS" & i mod 5 & ".PRE")
            else
              if MediaType = "Games" then
                set fName to MakePath("ICONS:GAMES:GAMES" & i mod 5 & ".PRE")
              else
                if MediaType = "Roster" then
                  set fName to MakePath("ICONS:ROSTER:ROSTER" & i mod 5 & ".PRE")
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  set the fileName of cast (n + i) to fName
  if (the fileName of cast (n + i) = fName) and ((i + 1) <> gLastMedia) then
    set the visible of sprite (gPREVIEWSPRITE + i) to 1
  end if
  set gPreviewNum to gPreviewNum + 1
  return 1
end

on IsNextRecord
  global gCurrentRecord, gList
  if gCurrentRecord < the number of lines in gList then
    return 1
  else
    return 0
  end if
end

on NextRecord
  global gCurrentRecord
  if IsNextRecord() then
    LoadRecord(gCurrentRecord + 1)
    return 1
  else
    return 0
  end if
end

on IsPrevRecord
  global gCurrentRecord
  if gCurrentRecord > 1 then
    return 1
  else
    return 0
  end if
end

on PrevRecord
  global gCurrentRecord
  if IsPrevRecord() then
    LoadRecord(gCurrentRecord - 1)
    return 1
  else
    return 0
  end if
end